*#store .t. #to debug_on
#@  9,30 #say boldon+"STATEMENT OF SUPPLY"+boldoff
#@ 14,1  #say dtoc(invoice->date)
#@ 18,1  #say trim(clients->salutation)+" "+trim(clients->fname)+" "+trim(clients->lname)
#if ""#trim(clients->title)
#@ fmrow+1,1  #say clients->title
#endif
#@ fmrow+1,1  #say clients->company
#@ fmrow+1,1  #say clients->add1
#if ""#trim(clients->add2)
#@ fmrow+1,1  #say clients->add2
#endif
#@ fmrow+1,1  #say TRIM(clients->city)+", "+clients->state+"  "+clients->zip

#@ 28,1  #say "Your request, as listed under, has been despatched:"
#@ 30,1  #say ""

#store invoice->invoice #to minvoice
#store 1         #to mpage
#store 0         #to ttl1
#select events
#seek minvoice

#doWHILE events->inv_num=minvoice .and. .not. eof()
   #@ fmrow+1,1 #say tran(hours,"9999") + " copy @ " + tran(rate,"99999.99") + " " + descrip
   #store ttl1 + hours * rate #to ttl1
   #skip 1
   #IF FMRow >= 41 .and. events->inv_num=minvoice .and. .not. eof()
    #FORMPRINT
    #EJECT
    #FORMCLEAR 31, 66
    #store mpage+1 #to mpage
    #@ 30,1 #say ""
   #ENDIF
#enddo
#select invoice
#@ 46,1 #say "Total:   " + tran(ttl1,"99999999.99") + " Statement No " + minvoice
#@ 48,1 #say "** This is not an invoice.  You will be invoiced later.**"
#@ 50,1 #say "Enclosed is our current product and price list for your perusal."
#@ 52,1 #say "Thank you for purchasing an Asset Control Technology product."
#@ 57,1 #say "R Gerke"
#@ 58,1 #say "Manager"
#@ 59,1 #say "Asset Control Technology"
#formprint
#eject
